home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / Mildred.lha / lha / LandTest3.lha / LandTest3.ascii < prev    next >
Text File  |  1999-05-11  |  7KB  |  273 lines
  1. WBStartup
  2. #Width=320
  3. #Height=240
  4. MCPU Processor
  5. Mc2pCPUmode Processor
  6.  
  7. Pic$="5Ms2.IFF"
  8. Land$="Land17.iff"
  9. Sky$="Sky9.iff" ; try 9, 10, 12, 16, 17, 19, 20, 21, 23, 24
  10. #Objects=25  ;25;55;150;280;400
  11. #ObjWidth=128  ;128;64;32;16;8
  12. #ObjHeight=64  ;64;64;32;16;8
  13. #StarsPerSpeed=15
  14.  
  15. MReserveShapes 500
  16. InitBank 0,2880*60,$10002
  17. CludgeBitMap 0,2880,60,8,Bank(0)
  18. InitPalette 0,256
  19. LoadBitMap 0,Land$,0
  20. MReserveBitmaps 3
  21. MBitmap 0,2880,60
  22. MPlanar16ToBitmap 0,Bank(0)
  23. MCludgeShape 0,16,27,MBitmapPtr(1120,0)
  24. MBitmap 2,#Width,150
  25. MBitmap 1,#Width+#ObjWidth,#Height+#ObjHeight+#ObjHeight
  26. InitBank 0,#Width*#Height,$10002
  27. CludgeBitMap 0,#Width,#Height,8,Bank(0)
  28. Screen 0,0,0,#Width,#Height,8,0,"",0,0,0
  29. Window 0,0,0,#Width,#Height,$100,"back",0,0
  30. InitShape 0,16,1,2
  31. WPointer 0
  32. Menus Off
  33. InitPalette 1,256
  34. LoadBitMap 0,Pic$,1
  35. For c=64+64+64 To 255
  36.   CopyColour 0,1,c,c
  37. Next c
  38. MReservec2pWindows 1
  39. Mc2pWindow 0,#Width,#Height,#Width+#ObjWidth,#Width,#Height
  40. s=1
  41. For y=0 To 63 Step #ObjHeight
  42.   For x=0 To 127 Step #ObjWidth
  43.     If MShape(s,#ObjWidth,#ObjHeight)=0 Then End
  44.     For yy=y To y+#ObjHeight-1
  45.       For xx=x To x+#ObjWidth-1
  46.         MPlotShape xx MOD #ObjWidth, yy MOD #ObjHeight, Point(xx,yy)
  47.       Next xx
  48.     Next yy
  49.     MMakeCookie s
  50.     s+1
  51.   Next x
  52. Next y
  53. Cls 0
  54. LoadBitMap 0,Sky$,0
  55. For c=0 To 63
  56.   CopyColour 0,1,c,c
  57. Next c
  58. MPlanar16ToBitmap 2,Bank(0),#Width,150,#Width,#Height
  59. NumberOfShapes.w=s-1
  60. ShowPalette 1
  61.  
  62. NEWTYPE.xy
  63.   x.w
  64.   y.w
  65. End NEWTYPE
  66. Dim pos.xy(#Objects)
  67. Dim pos2.xy(#Objects)
  68. Dim direction.xy(#Objects)
  69. For obj=1 To #Objects
  70.   pos(obj)\x=Rnd(2220-36)+16
  71.   pos(obj)\y=Rnd(#Height-100)+16+13
  72.   Repeat
  73.     direction(obj)\x=Rnd(8)-4
  74.   Until direction(obj)\x<>0
  75.   direction(obj)\y=Rnd(6)-3
  76. Next obj
  77.  
  78. NEWTYPE.xyq
  79.   x.q
  80.   y.q
  81. End NEWTYPE
  82. Dim star1.xyq(#StarsPerSpeed)
  83. Dim star2.xyq(#StarsPerSpeed)
  84. Dim star3.xyq(#StarsPerSpeed)
  85. Dim star4.xyq(#StarsPerSpeed)
  86. Dim star5.xyq(#StarsPerSpeed)
  87. For s=1 To #StarsPerSpeed
  88.   star1(s)\x=Rnd(319)
  89.   star1(s)\y=Rnd(120)
  90.   star2(s)\x=Rnd(319)
  91.   star2(s)\y=Rnd(100)
  92.   star3(s)\x=Rnd(319)
  93.   star3(s)\y=Rnd(80)
  94.   star4(s)\x=Rnd(319)
  95.   star4(s)\y=Rnd(60)
  96.   star5(s)\x=Rnd(319)
  97.   star5(s)\y=Rnd(40)
  98. Next s
  99.  
  100. speedsetting.q=1 ; Global speed multiplier
  101. xpos.q=0
  102. xaccelerate.q=1*speedsetting
  103. xmomentum.q=0
  104. xairresistance.q=0.1*speedsetting
  105. xmaxspeed.q=16*speedsetting
  106. ypos.q=(#Height-69)/2
  107. yaccelerate.q=0.7*speedsetting
  108. ymomentum.q=0
  109. ymaxspeed.q=8*speedsetting
  110. ytopdampen.q=1.9
  111. ybottomdampen.q=1.65
  112. ygravity.q=0.15;*speedsetting
  113.  
  114. NEWTYPE.OffsetList
  115.   LineWidth.w
  116.   X1Offset.w
  117.   X2Offset.w
  118.   ModuloOffset.w
  119. End NEWTYPE
  120. Dim rows.OffsetList(47)
  121. Dim rowsq.q(47)
  122.  
  123. cnt.l=0
  124. MParticleFormat 0
  125. MBitmapOrigin 1,#ObjWidth/2,#ObjHeight
  126. MBitmapWrap 1,On
  127. intcnt=0
  128. SetInt 5
  129.   intcnt+1
  130. End SetInt
  131. ResetTimer
  132. While Joyb(1)=0
  133.  
  134.   jh=JHoriz(1)
  135.   jv=JVert(1)
  136.  
  137.   xmomentum+(xaccelerate*jh)
  138.   ymomentum+(yaccelerate*jv)
  139.  
  140.   ymomentum+ygravity
  141.   If xmomentum>0
  142.     xmomentum-xairresistance
  143.     If xmomentum<0 Then xmomentum=0
  144.   Else
  145.     xmomentum+xairresistance
  146.     If xmomentum>0 Then xmomentum=0
  147.   EndIf
  148.  
  149.   If xmomentum>xmaxspeed Then xmomentum=xmaxspeed
  150.   If xmomentum<-xmaxspeed Then xmomentum=-xmaxspeed
  151.   If ymomentum>ymaxspeed Then ymomentum=ymaxspeed
  152.   If ymomentum<-ymaxspeed Then ymomentum=-ymaxspeed
  153.  
  154.   xpos+xmomentum
  155.   ypos+ymomentum
  156.  
  157.   If ypos<0
  158.     ymomentum=-ymomentum/ytopdampen
  159.     ypos=0
  160.   EndIf
  161.   If ypos>#Height-40
  162.     ymomentum=-ymomentum/ybottomdampen
  163.     ypos=#Height-40
  164.   EndIf
  165.  
  166.   If xpos<0 Then xpos+2240
  167.   If xpos>=2240 Then xpos-2240
  168.  
  169.   cnt+1
  170.  
  171. ;  MBitmapClip 1,0,0,#Width,#Height-60-32,On
  172. ;  MCls 192;0
  173. ;  MBitmapClip 1,Off
  174. MBlockScroll 0,0,#Width,#Height-60-32,0,0,2
  175.   c=193
  176.   MBoxF 0,#Height-60-32,319,#Height-61-14,192
  177.   For yy=#Height-75 To #Height-61
  178.     MBoxF 0,yy,319,yy,c
  179.     c+1
  180.   Next yy
  181.  
  182.   xx.q=xpos/7
  183.   For b=1 To 8
  184.     MBoxF 320-xx,#Height-62,320-xx+3,#Height-61,220
  185.     xx+40
  186.     If xx>319 Then xx-320
  187.   Next b
  188.  
  189.   MDrawingMode MAddMode
  190.   MBoxF 139,#Height-92,180,#Height-61,5
  191.   MBox 139,#Height-92,180,#Height-61,7
  192.   MDrawingMode MColourMode
  193.  
  194.   MAddXYToParticlesQ &star1(1)\x,#StarsPerSpeed,-(xmomentum/60),0
  195.   MAddXYToParticlesQ &star2(1)\x,#StarsPerSpeed,-(xmomentum/50),0
  196.   MAddXYToParticlesQ &star3(1)\x,#StarsPerSpeed,-(xmomentum/40),0
  197.   MAddXYToParticlesQ &star4(1)\x,#StarsPerSpeed,-(xmomentum/30),0
  198.   MAddXYToParticlesQ &star5(1)\x,#StarsPerSpeed,-(xmomentum/20),0
  199.   MParticleFormat -1
  200.   MBitmapClip 1,On
  201.   MWrapXParticles &star1(1)\x,#StarsPerSpeed
  202.   MWrapXParticles &star2(1)\x,#StarsPerSpeed
  203.   MWrapXParticles &star3(1)\x,#StarsPerSpeed
  204.   MWrapXParticles &star4(1)\x,#StarsPerSpeed
  205.   MWrapXParticles &star5(1)\x,#StarsPerSpeed
  206.   MBitmapClip 1,Off
  207.   MPlotParticles &star1(1)\x,#StarsPerSpeed,192+14-Rnd(12)
  208.   MPlotParticles &star2(1)\x,#StarsPerSpeed,192+20-Rnd(12)
  209.   MPlotParticles &star3(1)\x,#StarsPerSpeed,192+26-Rnd(12)
  210.   MPlotParticles &star4(1)\x,#StarsPerSpeed,192+32-Rnd(12)
  211.   MPlotParticles &star5(1)\x,#StarsPerSpeed,192+38-Rnd(12)
  212.   MParticleFormat 0
  213.  
  214.   MScroll 160+xpos,47,#Width,13,0,#Height-13,0
  215.   mult.q=1.0
  216.   width.q=2240
  217.   widthadd.q=(2240-320)/47
  218.   For yy=46 To 0 Step -1
  219.     rowsq(yy)=1280-(width LSR 1)+(xpos*mult) ; 1280=1120+320-160
  220.     width-widthadd
  221.     mult-0.01825
  222.     ;mult=width/2240
  223.   Next yy
  224.   rows(0)\LineWidth=320,Int(rowsq(0)),0,0
  225.   For yy=1 To 46
  226.     rows(yy)\LineWidth=320,Int(rowsq(yy))-Int(rowsq(yy-1)),0,0
  227.   Next yy
  228.   MScroll 0,0,320,47,0,#Height-60,0,&rows(0)\LineWidth
  229.  
  230.   MAddToParticles &pos(1)\x,#Objects,&direction(1)\x
  231.   For obj=1 To #Objects
  232.     If pos(obj)\x<0 Then pos(obj)\x+2240
  233.     If pos(obj)\x>=2240 Then pos(obj)\x-2240
  234.     If pos(obj)\y<8 OR pos(obj)\y>#Height-16-#ObjHeight Then direction(obj)\y=-direction(obj)\y
  235.   Next obj
  236.   For obj=1 To #Objects
  237.     pos2(obj)\x=pos(obj)\x/7
  238.     pos2(obj)\y=#Height-92+(pos(obj)\y/7)
  239.   Next obj
  240.   MAddXYToParticles &pos2(1)\x,#Objects,320-(xpos/7)-180,0
  241.   MBitmapClip 1,0,0,#Width,#Height,On
  242.   MWrapXParticles &pos2(1)\x,#Objects
  243.   MBitmapClip 1,Off
  244. ;  MPlotParticles &pos2(1)\x,#Objects,255
  245.   ww=(#ObjWidth/7);-1
  246.   hh=(#ObjHeight/7);-1
  247. ;  MDrawingMode MAddMode
  248.   For p=1 To #Objects
  249. ;    MBoxF pos2(p)\x,pos2(p)\y,pos2(p)\x+ww,pos2(p)\y+hh,240+Rnd(15);10
  250.     MZoomShapeToBitmap 3,3,7,7,pos2(p)\x,pos2(p)\y,ww,hh,False,(p MOD NumberOfShapes)+1
  251.   Next p
  252.   MDrawingMode MColourMode
  253.   MPlot 160,#Height-91+(ypos/7),40
  254.   MPlot 160,#Height-90+(ypos/7),40
  255.   For obj=1 To #Objects
  256.     If pos(obj)\x>xpos-#ObjWidth AND pos(obj)\x<xpos+#Width;-#ObjWidth+#ObjWidth
  257.       MBlit (obj MOD NumberOfShapes)+1,pos(obj)\x-xpos,pos(obj)\y
  258.     EndIf
  259.   Next obj
  260.  
  261.   MBlit 0,152,ypos
  262.   Mc2p Bank(0)
  263. ;  If intcnt<2 Then VWait Else intcnt=0 ; only wait for 25fps if faster
  264.  
  265. Wend
  266. t=Timer
  267. a.q=50.0/(t/cnt)
  268. NPrint a
  269. VWait 30
  270. Repeat:Until Joyb(0)<>0 OR Joyb(1)<>0
  271. End
  272.  
  273.